# NOT RUN {
# read in the example data (generated, not real student data)
sdf <- readNAEP(system.file("extdata/data", "M36NT2PM.dat", package = "NAEPprimer"))
gddat <- getData(sdf, c("composite", "dsex"), addAttributes = TRUE)
table(gddat[gddat$dsex=="Male","dsex"])
# }
Run the code above in your browser using DataLab